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Some PD?6 LISP users hove felt e need for a way to incorporate 
MIDAS subroutines into LISP- LISP has been changed to let you do this, 
using files found on the LISP SYSTEM pfcrotapc, 

I. ASSEMBLING 

You write a routine for LISP in much the same way that you write 
any other MIDAS relocatable subroutine. You must, however* observe the 
constraints imposed by LISP's allocation and use of accumulators t and 
its method of handling input > output > and interrupts. In addition* you 
require linkage to LISP before your routine can operate properly: The 
entry point(s) of the subroutine must be put on the property list(s) of 
the appropriate £tom(s), and the address fields of instructions pointing 
to other routines, to list structure , or the other LISP data structures 
must be set properly. This is done when LISP begins operation -- after 
allocation, but before going into its listen loop. 

Wc provide ci.ght macros to cose the job of creating such linkages; 
SUBR, FSUBR, LSUBR, MACRO, QUOTE, E, SPECIAL, and SYM. 

If you write "SUBR name" at a location _a in your routine, LISP will 
subsequently ascribe the property SUBR to the atom name, with entry 
location £. Similar remarks apply to the use of FSUBR, LSUBR, and MACRO. 

The significance and use of the other four macros is perhaps best 
communicated through examples ; 

1} An instruction like "MOVEI A.QUOTB (X Y Z)" will be assembled 
a$ "HOVEI A,0", At link time, however, LISP vill insert the location 
of the list (X Y Z) into the address field of the instruction. 

2) Suppose that the atom FCO has the properties shown in Figure 1. 
Then the instructions "MOVEI A>QUOTE FOO" > "HOVEM B, SPECIAL F00" , 
"PUSBJ P,SYM FOO" i and "CALL E FCO"* will each be assembled with a aero 
address field, which will be modified at link time to be b, £, 106, and 
101 , respectively- 
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Figure 1 



You should note that: 

1) Of these macros, only QUOTE may be used with a nonatomic 
argument . 

2) E can only be used with a routine which is known as a SUBR to 
LISP at link time* 

3) SPECIAL will Cause a value cell to be created for the atom 
named, if it does not already have one- 

4) If your routine must do I/O tn a more intimate manner than 
merely calling other subroutines such as p rint » re ^d t or uwrite > then 
consult a system programmer before blindly using instructions such as 
CONO or DATAI. 

Appendix I maps LISP's allocation and use of the accumulators. 
Appendix II lists code which properly defines the eight macros, as well 
as defining the UUOs CALL, JCALL, CALLF, and JCALLF, a$ well as difi- 
ning the accumulators AjBjCT, and P. This code appears as the file 
LISP MACROS on the LISP SYSTEM tape- We suggest that you merge it in 
at the beginning of your program* 

If you arc mystified, peruse AI Memo 116, P.DP- 6 LISP (LISP 1,6) , 
January 1967 * 



2 - LOADING 

Your programs must be loaded together with LISP system programs 
by STIKKB or STINK. Here is a recipe: 

1) Have the 63K system tape on drive 1, LISP SYSTEM on drive 2 
(s;iy) > and on drive 3 (say), a tape bearing the relocatable binary files 
(e.g. F00 BAR, and BAR F00) that you wish to load. 

2) Load STINKD (say) , and then perform the following incantation; 

2M1$L$$ 

3HF00 BAR$LMBAR F00$LS$ 

2M2$$$$ 
The process will terminate with LISP and DDT loaded, with control 
in DDT. When you are ready, start LISP as usual with 100$G, LISP will 
begin by allocating storage > then linking your routines into the system. 
If an error occurs in processing a macro statement of the form mac expr a 
LISP will print out the vague comn>cnt "LINKAGE ERROR LINKING TO expr" - 
After processing all linkages, LISP goes into its listen loop* 
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APPENDIX I 
LISP ASSIGWEKT AND USE OF ACClftfUMTORS 



Atom head for NIL. 

Value of functions. Arg 1, Harked from, 

Arg 2. Marked frccn. 

Arg 3. Marked frocn. 

Arg 4. Marked from. 

Arg 5. Marked fronn 

Used in calls to I-SUBRs. Marked from. 

Marked from. 

Hon marked- Clobbered by Garbage Collector. 

Ditto. 

Ditto. 

Not marked. 

Pdl ac. 

Free storage list ac. 

Full word space ac. 

Special pdl ac. 



APPENDIX II 
CODE FOR DEFINING MACROS, UUOS, AND ACS 

IRP MAC, *ISUBR J FSUBR,15LWR^IACKO > QUOTF J SPECIAL > K > SY>3]TYP£, > [0 > 1 > 2>3,4 > 5,6 I 7] 
DEFINE MAC NAME/HERE, OLDEND 

HERE-.-IFCR TYPE-A 1 
EQUALS OLDEND END 
DEFINE END 

llERE,,,LINKLIST" 
.LINKLIST n =$.-l 

TYPE -29.+ASCII /gNAHE/ 
EQUALS END OLDEKD 
EXPUNGE HERE, OLDEKD 
EKD 
TER>!IN 
TERKIV 
XEKHXN 

CALL=74000,, 
JCALL=75000,, 
CALLF=76O00>, 
JCALLF=77000,» 

.GLOBAL A B C T P 



